home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
Quasar
/
PC-Task3.1
/
Install-PCTask
< prev
next >
Wrap
Text File
|
1995-03-24
|
9KB
|
497 lines
; PC-Task v3.0 Install Script (1.1)
; 23/3/95 Copyright 1994-1995 Quasar Distribution
; Translated by:
(set @default-dest "SYS:")
; English language
(set #pctask-location
(cat "Select location to put PC-Task 3 directory:"
))
(set #copying-files
(cat "Copying files..."
))
(set #help-askbool
(cat "Please select Yes to install the file(s) "
"or select No so they are not installed. "
))
(set #data-set
(cat "Which programs do you wish to install?"
))
(set #insert_disktwo
(cat "Please insert PC-Task Disk Two.\n"
))
(set #whichone-help
(cat "You are able to choose which PC-Task program "
"to install. The difference is that the Turbo "
"version of PC-Task uses 4 times as much memory "
"and the program is over twice the size, but the "
"advantage is you get faster emulation. "
))
(set #notknown-set
(cat "CPU not known. Please chose program to install."
))
(set #install-asl
(cat "You have Kickstart 2.0+\nasl.library can be used\n"
"This allows you to select your screen modes from "
"a list of available modes on your machine. "
))
(set #install-hardfiledevice
(cat "Do you wish to install the hardfile.device?\n"
"This is needed if you wish to access a PC drive "
"(which you have created for PC-Task) from AmigaDOS "
))
(set #copy-hardfile
(cat "Copying hardfile.device"
))
(set #install-msdosutils
(cat "Do you wish to install the MSDOSUtils directory?\n"
"This directory contains some useful utilities "
"which will come in handy when using PC-Task. "
))
(set #install-tdpatch
(cat "Do you wish to install the TDPatch1213 program?\n"
"This is necessary if you are running Kickstart 1.3 "
"or Kickstart 1.2. It patches the disk drive so "
"PC-Task will work correctly. TDPatch1213 should be "
"run before you start PC-Task. "
))
(set #install-leaveslowfast
(cat "Do you wish to install the LeaveSlowFast program?\n"
"This program is useful to get more memory when you "
"have a machine with 512K Chip memory and 512K Fast "
"RAM. Use this so PC-Task can allocate more memory "
"for its emulation. "
))
(set #copy-msdosutils
(cat "Copying MSDOSUtils directory"
))
;--------------------------------------------------
(set dest2 (askdir (prompt #pctask-location)
(default @default-dest)
(help @askdir-help)
)
)
(set dest1 (tackon dest2 "PC-Task"))
(makedir dest1 (infos))
; copy the PC-Task program
(set machine (database "cpu"))
(if (OR (= machine "68000") (= machine "68010"))
(
(set types_to_install
(askoptions
(prompt #data-set)
(help #whichone-help)
(choices "PC-Task68000_10"
"PC-TaskTurbo68000_10"
)
)
)
(if (IN types_to_install 0)
(
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk1:")
(dest dest1)
(choices "PC-Task68000_10")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PC-Task68000_10"))
(noposition)
(swapcolors)
)
)
)
(if (IN types_to_install 1)
(
(askdisk
(prompt #insert_disktwo)
(dest "PCT3_Disk2")
(help @askdisk-help)
)
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk2:")
(dest dest1)
(choices "PC-TaskTurbo68000_10")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PC-TaskTurbo68000_10"))
(noposition)
(swapcolors)
)
)
)
)
(
(if (OR (= machine "68020") (= machine "68030") (= machine "68040"))
(
(set types_to_install
(askoptions
(prompt #data-set)
(help #whichone-help)
(choices "PC-Task68020_60"
"PC-TaskTurbo68020_60"
)
)
)
(if (IN types_to_install 0)
(
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk1:")
(dest dest1)
(choices "PC-Task68020_60")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PC-Task68020_60"))
(noposition)
(swapcolors)
)
)
)
(if (IN types_to_install 1)
(
(askdisk
(prompt #insert_disktwo)
(dest "PCT3_Disk2")
(help @askdisk-help)
)
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk2:")
(dest dest1)
(choices "PC-TaskTurbo68020_60")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PC-TaskTurbo68020_60"))
(noposition)
(swapcolors)
)
)
)
)
(
(set types_to_install
(askoptions
(prompt #notknown-set)
(help #whichone-help)
(choices "PC-Task68000_10"
"PC-TaskTurbo68000_10"
"PC-Task68020_60"
"PC-TaskTurbo68020_60"
)
)
)
(if (IN types_to_install 0)
(
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk1:")
(dest dest1)
(choices "PC-Task68000_10")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PC-Task68000_10"))
(noposition)
(swapcolors)
)
)
)
(if (IN types_to_install 1)
(
(askdisk
(prompt #insert_disktwo)
(dest "PCT3_Disk2")
(help @askdisk-help)
)
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk2:")
(dest dest1)
(choices "PC-TaskTurbo68000_10")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PC-TaskTurbo68000_10"))
(noposition)
(swapcolors)
)
)
)
(if (IN types_to_install 2)
(
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk1:")
(dest dest1)
(choices "PC-Task68020_60")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PC-Task68020_60"))
(noposition)
(swapcolors)
)
)
)
(if (IN types_to_install 3)
(
(askdisk
(prompt #insert_disktwo)
(dest "PCT3_Disk2")
(help @askdisk-help)
)
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk2:")
(dest dest1)
(choices "PC-TaskTurbo68020_60")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PC-TaskTurbo68020_60"))
(noposition)
(swapcolors)
)
)
)
)
)
)
)
(copyfiles
(source "PCT3_Disk1:")
(dest dest1)
(choices "README_FIRST!")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "README_FIRST!"))
(noposition)
(setdefaulttool "more")
)
(copyfiles
(source "PCT3_Disk1:")
(dest dest1)
(choices "PCTCrossMount")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PCTCrossMount"))
(noposition)
)
(copyfiles
(source "PCT3_Disk1:")
(dest dest1)
(choices "PCTCrossMount.doc")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "PCTCrossMount.doc"))
(noposition)
(setdefaulttool "more")
)
(set vernum (getversion))
(set ver (/ vernum 65536))
(if (AND (>= ver 37) (<= ver 38))
(
(copylib
(prompt #install-asl)
(source "PCT3_Disk1:libs/asl.library")
(dest "libs:")
(optional nofail askuser force)
(confirm)
(help @copylib-help)
)
)
)
(if (<= ver 34)
(
(set hardy
(askbool
(prompt #install-tdpatch)
(help #help-askbool)
)
)
(if (= hardy 1)
(
(copyfiles
(prompt #copying-files)
(source "PCT3_Disk1:")
(dest dest1)
(choices "TDPatch1213"
"TDPatch1213.doc")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "TDPatch1213"))
(noposition)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "TDPatch1213.doc"))
(noposition)
(setdefaulttool "more")
)
)
)
)
)
(set hardy (askbool
(prompt #install-leaveslowfast)
(help #help-askbool)
)
)
(if (= hardy 1)
(
(copyfiles
(prompt #copy-hardfile)
(source "PCT3_Disk1:")
(dest dest1)
(choices "LeaveSlowFast"
"LeaveSlowFast.doc")
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "LeaveSlowFast"))
(noposition)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest1 "LeaveSlowFast.doc"))
(noposition)
(setdefaulttool "more")
)
)
)
(set hardy (askbool
(prompt #install-hardfiledevice)
(help #help-askbool)
)
)
(if (= hardy 1)
(copylib
(prompt #copy-hardfile)
(source "PCT3_Disk1:devs/hardfile.device")
(dest "devs:")
(optional nofail askuser force)
(confirm)
(help @copyfiles-help)
)
)
(set hardy (askbool
(prompt #install-msdosutils)
(help #help-askbool)
)
)
(if (= hardy 1)
(
(set dest2 (tackon dest1 "MSDOSUtils"))
(copyfiles
(infos)
(prompt #copy-msdosutils)
(source "PCT3_Disk1:MSDOSUtils")
(dest dest2)
(all)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest dest2)
(noposition)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest2 "ProduceUtilDisk.doc"))
(setdefaulttool "more")
)
)
)
(set @default-dest dest1)